﻿Public Class docPageMaster1
    Inherits System.Web.UI.MasterPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim mes As String = ""
        Dim hora As String = ""
        Dim minuto As String = ""

        Select Case (Now.Month)
            Case 1
                mes = "Enero"
            Case 2
                mes = "Febrero"
            Case 3
                mes = "Marzo"
            Case 4
                mes = "Abril"
            Case 5
                mes = "Mayo"
            Case 6
                mes = "Junio"
            Case 7
                mes = "Julio"
            Case 8
                mes = "Agosto"
            Case 9
                mes = "Septiembre"
            Case 10
                mes = "Octubre"
            Case 11
                mes = "Noviembre"
            Case 12
                mes = "Diciembre"
        End Select

        If Now.Hour < 10 Then
            hora = "0" & Now.Hour
        Else
            hora = Now.Hour
        End If

        If Now.Minute < 10 Then
            minuto = "0" & Now.Minute
        Else
            minuto = Now.Minute
        End If

        lblNivelUsuario.Text = "Docente"
        lblNombresUsuario.Text = Page.Request.QueryString("nombres")
        lblApellidosUsuario.Text = Page.Request.QueryString("apePat") & " " & Page.Request.QueryString("apeMat")
        lblFecha.Text = Now.Day & " de " & mes & " de " & Now.Year
        lblHora.Text = hora & ":" & minuto & " h"
    End Sub

End Class